object fProcura_prod2: TfProcura_prod2
  Left = 24
  Top = 3
  Width = 790
  Height = 592
  BorderIcons = [biSystemMenu]
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDesktopCenter
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object JvGradient1: TJvGradient
    Left = 0
    Top = 0
    Width = 782
    Height = 89
    Align = alTop
    PopupMenu = PopupMenu1
    Style = grVertical
    StartColor = clTeal
    EndColor = 16776176
  end
  object Label11: TLabel
    Left = 66
    Top = 7
    Width = 103
    Height = 13
    Caption = 'Descri'#231#227'o do Produto'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label12: TLabel
    Left = 368
    Top = 7
    Width = 29
    Height = 13
    Caption = 'Qutde'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label13: TLabel
    Left = 422
    Top = 7
    Width = 49
    Height = 13
    Caption = 'Valor Unit.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label1: TLabel
    Left = 3
    Top = 47
    Width = 69
    Height = 13
    Caption = 'Caixa/Barmem'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label2: TLabel
    Left = 199
    Top = 48
    Width = 57
    Height = 13
    Caption = 'Colaborador'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label14: TLabel
    Left = 526
    Top = 8
    Width = 51
    Height = 13
    Caption = 'Valor Total'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label3: TLabel
    Left = 370
    Top = 46
    Width = 29
    Height = 13
    Caption = 'Suites'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label4: TLabel
    Left = 2
    Top = 7
    Width = 33
    Height = 13
    Caption = 'C'#243'digo'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label5: TLabel
    Left = 493
    Top = 7
    Width = 8
    Height = 13
    Caption = '%'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label6: TLabel
    Left = 525
    Top = 46
    Width = 34
    Height = 13
    Caption = 'Pago ?'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object BitBtn2: TBitBtn
    Left = 690
    Top = 9
    Width = 91
    Height = 37
    Caption = 'F9-Sair'
    PopupMenu = PopupMenu1
    TabOrder = 11
    OnClick = BitBtn2Click
    Glyph.Data = {
      E60C0000424DE60C0000000000003600000028000000250000001D0000000100
      180000000000B00C0000120B0000120B00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBF9F60606F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F6060A06060A06060
      6F3030BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F60
      60A06060B06060C06060CF6060B060606F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F60609F6060AF6F6FC06F6FCF6F6FCF6F6FCF606FCF606FB06060
      6F3030AF60609F60609F60609F60609F60609F60609F60609F60609F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060D06F70D06F70D06F
      6FD06F6FD06F6FD06F6FD06F6FB0606F6F3030FFA0A0FFAFAFFFAFB0FFB0B0FF
      BFBFFFC0C0FFC0C0FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060DF7070DF7070D07070D07070D06F70D06F6FD06F6FB06F6F
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060DF7070DF7070DF70
      70DF7070DF7070D07070D07070BF6F6F6F30305FB06030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060DF7F7FDF7F7FDF7F7FDF707FDF7070DF7070DF7070BF6F6F
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060E07F7FE07F7FE07F
      7FE07F7FDF7F7FDF7F7FDF707FBF6F6F6F30305FB06030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060E08080E07F80E07F7FE07F7FE07F7FE07F7FE07F7FBF7070
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060EF8080EF8080E080
      80E08080E0808FEFA0A0E07F7FBF70706F303070BF7030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060EF808FEF8080EF8080EF8080F0BFBFFFFFFFF0B0B0C07070
      6F3030F0DFC0C0F0BF7FDF907FDF9060D08060D08060D080FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060F08F8FEF8F8FEF8F
      8FEF808FF0BFBFFFFFFFF0AFAFC070706F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFE0FFCFE0FFCFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060F08F8FF08F8FF08F8FF08F8FEF8F8FF0A0A0EF808FC07070
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060F09090F09090F08F
      90F08F8FF08F8FF08F8FF08F8FC07F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9090FF9090FF9090F09090F09090F08F90F08F8FC07F7F
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060FF909FFF9090FF90
      90FF9090FF9090FF9090F09090CF7F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9F9FFF9F9FFF9F9FFF909FFF909FFF9090FF9090CF7F7F
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060FF9F9FFF9F9FFF9F
      9FFF9F9FFF9F9FFF9F9FFF9F9FCF7F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9090FF9F9FFF9F9FFF9F9FFF9F9FFF9F9FFF9F9FCF8080
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F6060C07F7FDF8F
      8FFF9F9FFF9F9FFF9F9FFF9F9FCF80806F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBF9F60609F6060A06F6FC07F7FF09090FF9F9FCF8080
      6F3030A060609F60609F60609F60609F60609F60609F60609F60609F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBF9F60609F6060AF7070B070706F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060
      6F3030BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00}
  end
  object BitBtn3: TBitBtn
    Left = 599
    Top = 9
    Width = 91
    Height = 37
    Caption = 'F5-Rateio'
    Enabled = False
    PopupMenu = PopupMenu1
    TabOrder = 15
    OnClick = BitBtn3Click
    Glyph.Data = {
      36080000424D3608000000000000360400002800000020000000200000000100
      0800000000000004000000000000000000000001000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00090909001212
      12001F1F1F002C2C2C003939390045454500525252005F5F5F006C6C6C007878
      780085858500929292009F9F9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDE
      DE00EBEBEB00F8F8F800F0FBFF00A4A0A000C0DCC000F0CAA60000003E000000
      5D0000007C0000009B000000BA000000D9000000F0002424FF004848FF006C6C
      FF009090FF00B4B4FF0000143E00001E5D0000287C0000329B00003CBA000046
      D9000055F000246DFF004885FF006C9DFF0090B5FF00B4CDFF00002A3E00003F
      5D0000547C0000699B00007EBA000093D90000AAF00024B6FF0048C2FF006CCE
      FF0090DAFF00B4E6FF00003E3E00005D5D00007C7C00009B9B0000BABA0000D9
      D90000F0F00024FFFF0048FFFF006CFFFF0090FFFF00B4FFFF00003E2A00005D
      3F00007C5400009B690000BA7E0000D9930000F0AA0024FFB60048FFC2006CFF
      CE0090FFDA00B4FFE600003E1400005D1E00007C2800009B320000BA3C0000D9
      460000F0550024FF6D0048FF85006CFF9D0090FFB500B4FFCD00003E0000005D
      0000007C0000009B000000BA000000D9000000F0000024FF240048FF48006CFF
      6C0090FF9000B4FFB400143E00001E5D0000287C0000329B00003CBA000046D9
      000055F000006DFF240085FF48009DFF6C00B5FF9000CDFFB4002A3E00003F5D
      0000547C0000699B00007EBA000093D90000AAF00000B6FF2400C2FF4800CEFF
      6C00DAFF9000E6FFB4003E3E00005D5D00007C7C00009B9B0000BABA0000D9D9
      0000F0F00000FFFF2400FFFF4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F
      00007C5400009B690000BA7E0000D9930000F0AA0000FFB62400FFC24800FFCE
      6C00FFDA9000FFE6B4003E1400005D1E00007C2800009B320000BA3C0000D946
      0000F0550000FF6D2400FF854800FF9D6C00FFB59000FFCDB4003E0000005D00
      00007C0000009B000000BA000000D9000000F0000000FF242400FF484800FF6C
      6C00FF909000FFB4B4003E0014005D001E007C0028009B003200BA003C00D900
      4600F0005500FF246D00FF488500FF6C9D00FF90B500FFB4CD003E002A005D00
      3F007C0054009B006900BA007E00D9009300F000AA00FF24B600FF48C200FF6C
      CE00FF90DA00FFB4E6003E003E005D005D007C007C009B009B00BA00BA00D900
      D900F000F000FF24FF00FF48FF00FF6CFF00FF90FF00FFB4FF002A003E003F00
      5D0054007C0069009B007E00BA009300D900AA00F000B624FF00C248FF00CE6C
      FF00DA90FF00E6B4FF0014003E001E005D0028007C0032009B003C00BA004600
      D9005500F0006D24FF008548FF009D6CFF00B590FF00CDB4FF001F1F1F1F1F1F
      1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F000000000000
      0000001F1F0000000000000000001F1F0000000000000000001F00A7A7A7A7A7
      A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
      A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
      A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
      A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
      A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
      A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F00A7A7A7A7A7
      A7A7001F1F00EFEFEFEFEFEFEF001F1F003B3B3B3B3B3B3B001F000000000000
      0000001F1F0000000000000000001F1F0000000000000000001F1F1F1F1F1F1F
      1F1F1F001F1F1F1F1F001F1F1F1F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
      1F1F1F1F001F1F1F1F001F1F1F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
      1F1F1F1F1F001F1F1F001F1F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
      1F1F1F1F1F1F001F1F001F1F001F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0000000000000000000000000000000000001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202020202020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202000000020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020200020002000202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020002020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202020002000202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202000000020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020200020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020002020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020002020002020002020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020200020002000202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202000000020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0020202020202020002020202020202020001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F0000000000000000000000000000000000001F1F1F1F1F1F1F1F1F1F1F1F1F
      1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F}
  end
  object JvDBGrid1: TJvDBGrid
    Left = 0
    Top = 89
    Width = 782
    Height = 307
    Align = alTop
    DataSource = Dtsrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 12
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = JvDBGrid1CellClick
    OnKeyDown = JvDBGrid1KeyDown
    OnKeyUp = JvDBGrid1KeyUp
    OnTitleClick = JvDBGrid1TitleClick
    AutoSizeColumns = True
    SelectColumnsDialogStrings.Caption = 'Select columns'
    SelectColumnsDialogStrings.OK = '&OK'
    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
    EditControls = <>
    RowsHeight = 17
    TitleRowHeight = 17
    Columns = <
      item
        Expanded = False
        FieldName = 'CODPRO'
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRODUTO'
        Title.Caption = 'Descri'#231#227'o do Produto'
        Width = 607
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRECO_VENDA'
        Title.Caption = 'Valor Unitario'
        Width = 97
        Visible = True
      end>
  end
  object cbGarcom: TComboBox
    Left = 2
    Top = 62
    Width = 197
    Height = 24
    BevelKind = bkFlat
    CharCase = ecUpperCase
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnEnter = cbGarcomEnter
    OnExit = cbGarcomExit
    OnKeyPress = FormKeyPress
  end
  object cbGarota: TComboBox
    Left = 200
    Top = 62
    Width = 166
    Height = 24
    BevelKind = bkFlat
    CharCase = ecUpperCase
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 3
    OnEnter = cbGarotaEnter
    OnExit = cbGarotaExit
    OnKeyPress = FormKeyPress
  end
  object EvDBFind1: TEvDBFind
    Left = 64
    Top = 21
    Width = 302
    Height = 24
    DataField = 'PRODUTO'
    DataSource = Dtsrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
    OnChange = EvDBFind1Change
    OnEnter = EvDBFind1Enter
    OnExit = EvDBFind1Exit
    OnKeyPress = FormKeyPress
  end
  object Edit3: TJvCalcEdit
    Left = 368
    Top = 21
    Width = 51
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DisplayFormat = ',##0.0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    ShowButton = False
    TabOrder = 4
    DecimalPlacesAlwaysShown = False
    OnEnter = Edit3Enter
    OnExit = Edit3Exit
    OnKeyPress = FormKeyPress
  end
  object Edit4: TJvCalcEdit
    Left = 420
    Top = 21
    Width = 69
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DisplayFormat = ',##0.00'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    ShowButton = False
    TabOrder = 5
    DecimalPlacesAlwaysShown = False
    OnEnter = Edit4Enter
    OnExit = Edit4Exit
    OnKeyPress = Edit4KeyPress
  end
  object BitBtn4: TBitBtn
    Left = 600
    Top = 49
    Width = 90
    Height = 37
    Caption = 'F4-Gravar'
    PopupMenu = PopupMenu1
    TabOrder = 9
    OnClick = BitBtn4Click
    Glyph.Data = {
      360C0000424D360C000000000000360000002800000020000000200000000100
      180000000000000C000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C00066000066000066000066000066000066005B8D5AB5B3B3B5B3B3B5B3
      B3B5B3B3B5B3B3B5B3B3B5B3B3B5B3B3B5B3B3B5B3B3B5B3B32D792D00660000
      6600006600006600006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008300008C00008C00008C00008C00007000367C36FAF6F3FDF9F6FDF9
      F6FDF9F6FDF9F6FDF9F6F9F6F3F0EEECE7E5E4DEDDDDDEDDDD327E3200660000
      6600006600007500008A00008300006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C00009900009900009900009900007300297528FAF6F30066000066
      00006600006600FAF6F3FDF9F6F9F6F3F0EEECE7E5E4DEDDDD37833600660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000099000099000099000099000073002A7629F6F0ED0066000066
      00006600006600F3F0EDFBF7F4FDF9F7F8F4F2EFECEAE6E4E338843800660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000099000099000099000099000073002B772AEFE8E40066000066
      00006600006600E9E6E4F5F2EFFCF8F5FDF9F6F6F3F0EDEBE93A863900660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000099000099000099000099000073002D782BE8DEDB0066000066
      00006600006600DBD8D7ECE9E6F7F3F0FCF9F6FCF9F6F5F1EF3C883B00660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C00009900009900009900009900007300307A2DE0D4D10066000066
      00006600006600C9C7C5DEDCDAEEEBE8F8F4F1FDF9F6FBF8F53E893C00660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C00009900009900009900009900007300327C2FDACCC90066000066
      00006600006600B2B1B0CDCBCAE2DFDDF0EDEAF9F5F3FDF9F63F8B3E00660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C00009900009900009900009900007300357E30D6C6C30066000066
      00006600006600A2A1A1B7B6B5D1CFCDE5E2E0F2EFECFAF7F43F8B3E00660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C00009900009900009900009900007300377F32D6C6C3C9BDBABDB4
      B2B2ADACA9A6A6A3A2A1A3A3A3BCBBBAD5D3D1E8E4E2F4F0EE3E8A3D00660000
      6600006600007A00009700008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000099000099000099000099000099000099000099000099000099
      0000990000990000990000990000990000990000990000990000990000990000
      9900009900009900009800008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000099000099000099000099000099000099000099000099000099
      0000990000990000990000990000990000990000990000990000990000990000
      9900009900009900009900008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C00009300008C00018E01049408079B0F0AA0140CA4180DA61A0DA6
      1A0DA61A0DA61A0DA61A0DA61A0DA61A0DA61A0DA61A0DA61A0DA61A0DA61A0D
      A61A0DA61A0AA213009900008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C00008000006600036B051187211EA13C29B65130C56133CB6733CB
      6733CB6733CB6733CB6733CB6733CB6733CB6733CB6733CB6733CB6733CB6733
      CB6733CB6726BF4D009900008C00006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      006600008C000080003F893DFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BF4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0066000083000079003B863AFAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3
      F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FAF3F2FA
      F3F2FAF3F226BB4D009900006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0006600006600317D31C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2
      C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3C2C2C3
      C2C2D6BCBB26B24D006600006600C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  end
  object JvDBGrid2: TJvDBGrid
    Left = 0
    Top = 396
    Width = 782
    Height = 160
    Align = alTop
    DataSource = DtSrc1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 13
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    AutoSizeColumns = True
    SelectColumnsDialogStrings.Caption = 'Select columns'
    SelectColumnsDialogStrings.OK = '&OK'
    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
    EditControls = <>
    RowsHeight = 17
    TitleRowHeight = 17
    Columns = <
      item
        Expanded = False
        FieldName = 'PRODUTO'
        Title.Caption = 'Itens do Pedido'
        Width = 372
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QUANTIDADE'
        Title.Caption = 'Qutde'
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UN'
        Width = 28
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRECO'
        Title.Caption = 'Valor'
        Width = 88
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ValorTotal'
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOME_FUNCIONARIO'
        Title.Caption = 'Barmem'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALORRATEIO'
        Title.Caption = 'Rateio'
        Width = 68
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 690
    Top = 49
    Width = 91
    Height = 37
    Caption = 'F2-Novo'
    Enabled = False
    PopupMenu = PopupMenu1
    TabOrder = 10
    OnClick = BitBtn1Click
    Glyph.Data = {
      360C0000424D360C000000000000360000002800000020000000200000000100
      180000000000000C000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0ADD2B02A71
      32196E2313741D0F761B11751B15741D1A6F242C7233ACD4B1C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C049854F1773200F77180C77
      170E791C0A781A08781A08781A0A78180C78180C77160D781718731E558E5BC0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D2F1D41871211078190D781808781A118A
      2F22A2492CB65E2AB55D2AB65B37BD6324A2491389300A781A0D78180F77181F
      7128C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C028762F12771B0C771A1B91403EC3732DBE691EC0
      6117C16113C15D0FC05914C15F19BF6021C26626BF6938C1704DCA7B20903C0D
      771A11761A28772EC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C01D6E2512771B10781B52C87D40C17635C06F2BBF6B1CBF
      631EBB601BB15819A9561FAF5C23B05F22B46228BF6937C17443C1794DC27D54
      C27A0E781B14771B1F6E25C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C028762F0F77180F771A36A25644BF7B3BC17533C06F28BF6920BF
      63429F689AC4AB97BAA696B9A593BAA54F9E722ABD6836C17040C1764AC17D4F
      BE80379E5310781B10761728742DC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C6E6C713761A0C751A4FB56E57C28448C07F40C17636C07229BC6A23BF
      684F956CE9F3EDE0DFE1D7D6D8BBC2BF5E91752DBD6A38C07240C0784AC07F50
      BE8364C88E52B3700F771A13751BCDECCFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C01C70220C741C6DCD8D62C98C58C2874CC07D42C07839C07430C06D27BD
      694F956DF1FBF5F8F8F8F0F1EFCCD1CF62927635BF713BC17541BF774AC17D51
      BF8460C68C66C78F6CCD8D0C761D1A7022C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      629B6811781724853B69C88F62C88E5CC68B4EC08043C07A3CC27635C06F2EC0
      6E569672F2FCF6F8F8F8F0F0F0CED1CF63907539BF733FBF7744C07A4CC07D53
      BF8460C68C69C7906DC89023863E0F7718649868C0C0C0C0C0C0C0C0C0C0C0C0
      1973200F771875CF946BC79267C88F5FC68C4DC18047C07C40C0783AC17535BF
      71589573F1FBF5F8F8F8F0F0F0CCD1CF6390753FBF7842BF7948C17D4EC08057
      C18660C78A67C88F6DC89173CD910F771818721FC0C0C0C0C0C0C0C0C0B4DAB6
      11771810761E73CB966BC89167C88F5FC78A4EC08048C07F43C07840C0783BC0
      775A9674F2F9F4F8F8F8F0F0F0CDD0CE66917642BF7A46C17D49C07C4EC08055
      C18660C88965C8906CC99272CB930C741C127819A7D2ADC0C0C0C0C0C0307836
      0F771825853875CA986DC79264B48556A57A4FA2754DA47249A36E47A16C48A1
      6F58826BF5FAF8F9F9F9EFEFEFCDD2D06C89794B9F6F4DA3734EA37653A27655
      A2765AA47A62AF836CC6916FC791278C3E0F77182C7636C0C0C0C0C0C01F7926
      0E761737994D70C9976AC79080AD93BBCFC3B2C6BAAEBEB7ACBFB6ADC0B7B3C7
      BBCED5D0F1F1F1F8F8F8F7F7F7E0E0E0C4CAC5B3C4B9AFC0B7AFC0B7AFBFB8B0
      BEB8ACBDB48CB09F6DC49268C68F4FB4690F771A177020C0C0C0C0C0C012731C
      0F771853B5696DC7926CC69193B19EEEF0F0E0E0E0E3E1E1E2DFE1E2DFE1E0E0
      E0EAE7E9F8F8F8F8F8F8FAF8F8F0F0F0EAE7E9E0E0E0E0E0E0E2DFE1E2DFE1E2
      DFE1C8C9C795AC9E6CC69169C79065C57F12791E13751BC0C0C0C0C0C00F761B
      0F771A51B5696AC8926AC8928DB39DF4F9F7F8F8F8F8F8F8F8F8F8F8F8F8F9F9
      F9F9F9F9F8F8F8F8F8F8F8F8F8F8F8F8F9F9F9F8F9F7F8F9F7F8F8F8F8F8F8F9
      F9F9D0D0D094AE9E6DC79267C89065C48112782011751BC0C0C0C0C0C012761E
      0E76174CB26462C98C61C68F8CB39EF4F9F7F8F8F8F8F8F8F7F7F7F8F8F8F7F7
      F7F8F8F8F8F8F8F9F9F9F8F7F9F8F8F8F7F7F7F8F9F7F8F8F8F8F8F8FAF8F8F6
      F8F8E6E8E89BB5A764C58D61C88E62C57F12782011751BC0C0C0C0C0C0187622
      0F771A47AD6060C8895FC68C8BBEA2E8FEF2ECFDF2ECFDF4ECFDF4EDFCF4EDFC
      F4F4F9F7F8F8F8F8F8F8FAF8F8F8F8F8F4F9F7F0FDF5EEFDF5EDFCF4EDFCF4EC
      FDF4ECFDF4BAE1CC68C68F61C98861C47E11771F13741DC0C0C0C0C0C0277930
      0F7718298F3E5AC18859C0865DBB855BAB7C64B18566B38767B1876EB38E76B2
      90738D7DF6F9F7F8F8F8F1F1F1DEE0E08A9E927DB39574B28E74B18F70B38E67
      B08865B2865EB58362C68A61C98A47AD600F771A196F21C0C0C0C0C0C04E8D55
      0F78171078215AC08657C18656BF8656BF8662C98C68C9906AC79074C99780C8
      9D7A9787F4F9F7F8F9F7F1F1F1D0D1CF7C928688C8A47FCA9E77C79873C89468
      C68F65C8905FC78A60C8895BC1871F86350E7617347A3BC0C0C0C0C0C0C0C0C0
      13741D0D771A61CB8957C18657C18659C18465C98F6AC79077C8997FC99F8CCB
      A4819A8CF6F8F8F8F8F8EFEFEFD0D0D07F91848FC8A787C8A182CA9F77C79872
      CA9565C89061C88B60C88964C98B0D761B0F7718B4DCB9C0C0C0C0C0C0C0C0C0
      2B743010791857BC7854BF8157C0875AC08667C79172CA957AC79B87C8A193C7
      A985988FF6F8F8F9F9F9F0F0F0CED1CF83938893C7A98AC7A384C7A07CC79B74
      C89869C88F62C88E62C78967CB890E76191C7022C0C0C0C0C0C0C0C0C0C0C0C0
      B7DDB913751B0C741F63CB8A59C0875BC18769C79076CB9982CAA08BC9A59BCA
      B0899A91F6F8F8F9F9F9F0F0F0CED0D083928A99C9AD90C9A887C8A17FCA9E74
      C89869C88F62C78F63CA8D167C2B12771B71A478C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C03075380D78182D974A5CC38663C78D6CC79078C99A83CBA18ECBA7A0CA
      B1899890F7F9F9F9F9F9F9F9F9D6D8D88A99919CC9AE8FC8A789C8A17FC99F76
      CA9A69C88F63C98F52BB720D771A1E6F26C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C018721F0E7617137B2862CC876CCA9178C99A83C69F8FC8A79DC7
      B096AA9EE4E9E7E4E9E7E5EAE8E3EAE7A6B9B09CC8B18EC7A88AC9A27FCA9E73
      CA9862C98C2C964911771815741DC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C08EC69316741D0E771608751F63C88A70CA9580CAA08CC9A59EC9
      AEA8C6B3AFC6B8B2C6B9ADC7B9A8C5B5A0C6B099C8AE8DC9A782C89F76CB9964
      C789137E2F0C771713761A509257C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C06CA67016741D0E7617258E3F62CB8860BE877BC69A97CC
      AB9DC8ADA4C9B5A8C8B5A1C7B19EC9AE98C9AD8ECAA87EC89E63BD8862C9863A
      A2550E761713751B2D7533C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C019711E1078190C761D2A93485FC88561BE
      876BBA8E7CC29D85C5A281C49D78C2986ABB8E62BE8962CA893FA7600C741F0F
      771A16731E5A9961C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C049854F18721F1178170F771A0D75
      1D0F77221C8633278F3C288F3A278F3A147C270C771B0D771A0F781712741A34
      7A3BC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0DEFBE2639B681C71211278
      191079181078191079181079181078191079181177181773223E8045C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A3CB
      A86CA3723B80432D77352C79352E78365F996388B58EC0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  end
  object JvCalcEdit1: TJvCalcEdit
    Left = 524
    Top = 21
    Width = 74
    Height = 24
    TabStop = False
    BevelKind = bkFlat
    BorderStyle = bsNone
    Color = cl3DLight
    DisplayFormat = ',##0.00'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    ReadOnly = True
    ShowButton = False
    TabOrder = 14
    DecimalPlacesAlwaysShown = False
  end
  object cbSuites: TComboBox
    Left = 367
    Top = 62
    Width = 155
    Height = 24
    BevelKind = bkFlat
    CharCase = ecUpperCase
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 7
    OnEnter = cbSuitesEnter
    OnExit = cbSuitesExit
    OnKeyPress = FormKeyPress
  end
  object evCodPro: TEvDBFind
    Left = 2
    Top = 21
    Width = 61
    Height = 24
    DataField = 'CODPRO'
    DataSource = Dtsrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnChange = EvDBFind1Change
    OnEnter = evCodProEnter
    OnExit = evCodProExit
    OnKeyPress = FormKeyPress
  end
  object edPorcento: TJvCalcEdit
    Left = 490
    Top = 21
    Width = 33
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DisplayFormat = ',##0.0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    ShowButton = False
    TabOrder = 6
    DecimalPlacesAlwaysShown = False
    OnChange = edPorcentoChange
    OnEnter = edPorcentoEnter
    OnExit = edPorcentoExit
    OnKeyPress = FormKeyPress
  end
  object ComboBox1: TComboBox
    Left = 523
    Top = 62
    Width = 74
    Height = 24
    BevelKind = bkFlat
    CharCase = ecUpperCase
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 8
    OnEnter = ComboBox1Enter
    OnExit = ComboBox1Exit
    OnKeyPress = ComboBox1KeyPress
    Items.Strings = (
      'SIM'
      'N'#195'O')
  end
  object Dtsrc: TDataSource
    DataSet = cds_proc
    Left = 128
    Top = 200
  end
  object cds_proc: TClientDataSet
    Aggregates = <>
    PacketRecords = 30
    Params = <>
    ProviderName = 'dsp_proc'
    Left = 88
    Top = 200
    object cds_procCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
    end
    object cds_procCODPRO: TStringField
      FieldName = 'CODPRO'
      Size = 15
    end
    object cds_procPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Required = True
      Size = 200
    end
    object cds_procPRECO_VENDA: TFloatField
      FieldName = 'PRECO_VENDA'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_procQTDE_PCT: TFloatField
      FieldName = 'QTDE_PCT'
      DisplayFormat = ',##0.0'
      EditFormat = ',##0.0'
    end
    object cds_procUNIDADEMEDIDA: TStringField
      FieldName = 'UNIDADEMEDIDA'
      FixedChar = True
      Size = 2
    end
    object cds_procGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 30
    end
    object cds_procSUBGRUPO: TStringField
      FieldName = 'SUBGRUPO'
      Size = 30
    end
    object cds_procMARCA: TStringField
      FieldName = 'MARCA'
      Size = 30
    end
    object cds_procESTOQUEATUAL: TFloatField
      FieldName = 'ESTOQUEATUAL'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.0'
    end
    object cds_procCODALMOXARIFADO: TIntegerField
      FieldName = 'CODALMOXARIFADO'
    end
    object cds_procICMS: TFloatField
      FieldName = 'ICMS'
    end
    object cds_procPRECO_COMPRA: TFloatField
      FieldName = 'PRECO_COMPRA'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_procTIPO: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object cds_procCOD_BARRA: TStringField
      FieldName = 'COD_BARRA'
    end
    object cds_procLOTES: TStringField
      FieldName = 'LOTES'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_procLOCALIZACAO: TStringField
      FieldName = 'LOCALIZACAO'
      Size = 50
    end
    object cds_procPESO_QTDE: TFloatField
      FieldName = 'PESO_QTDE'
      DisplayFormat = ',##0.0'
      EditFormat = ',##0.0'
    end
    object cds_procPRECOMEDIO: TFloatField
      FieldName = 'PRECOMEDIO'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_procIPI: TFloatField
      FieldName = 'IPI'
    end
    object cds_procPEDIDO: TFloatField
      FieldName = 'PEDIDO'
      DisplayFormat = ',##0.0'
      EditFormat = ',##0.0'
    end
  end
  object dsp_proc: TDataSetProvider
    DataSet = sds_proc
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 56
    Top = 200
  end
  object sds_proc: TSQLDataSet
    CommandText = 
      'select distinct pro.CODPRODUTO, '#13#10'          pro.COD_BARRA,  '#13#10'  ' +
      '       pro.CODPRO, '#13#10'          pro.PRODUTO,  '#13#10'          pro.PRE' +
      'CO_VENDA, '#13#10'          pro.PRECO_COMPRAULTIMO as PRECO_COMPRA, '#13#10 +
      '          pro.QTDE_PCT, '#13#10'          pro.UNIDADEMEDIDA, '#13#10'       ' +
      '   pro.GRUPO, '#13#10'          pro.SUBGRUPO, '#13#10'          pro.MARCA, '#13 +
      #10'          pro.ESTOQUEATUAL, '#13#10'          pro.CODALMOXARIFADO,'#13#10' ' +
      '         pro.ICMS, '#13#10'          pro.TIPO,  '#13#10'          pro.LOCALI' +
      'ZACAO ,'#13#10'          pro.LOTES ,'#13#10'          cod.CODIGO, '#13#10'        ' +
      '  uso.DESCRICAO as USO , pro.PRECO_COMPRAMEDIO as PRECOMEDIO, pr' +
      'o.PESO_QTDE, pro.IPI ,pro.PEDIDO,'#13#10'          pro.PRECO_MINIMO '#13#10 +
      'from LISTAPRODUTO pro'#13#10' left outer join CODIGOS cod on cod.COD_P' +
      'RODUTO = pro.CODPRODUTO '#13#10'left outer join USO_PRODUTO uso on uso' +
      '.COD_PRODUTO = pro.CODPRODUTO '#13#10#13#10
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 24
    Top = 200
    object sds_procCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
    end
    object sds_procCODPRO: TStringField
      FieldName = 'CODPRO'
      Size = 15
    end
    object sds_procPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Required = True
      Size = 200
    end
    object sds_procPRECO_VENDA: TFloatField
      FieldName = 'PRECO_VENDA'
    end
    object sds_procQTDE_PCT: TFloatField
      FieldName = 'QTDE_PCT'
    end
    object sds_procUNIDADEMEDIDA: TStringField
      FieldName = 'UNIDADEMEDIDA'
      FixedChar = True
      Size = 2
    end
    object sds_procGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 30
    end
    object sds_procSUBGRUPO: TStringField
      FieldName = 'SUBGRUPO'
      Size = 30
    end
    object sds_procMARCA: TStringField
      FieldName = 'MARCA'
      Size = 30
    end
    object sds_procESTOQUEATUAL: TFloatField
      FieldName = 'ESTOQUEATUAL'
    end
    object sds_procCODALMOXARIFADO: TIntegerField
      FieldName = 'CODALMOXARIFADO'
    end
    object sds_procICMS: TFloatField
      FieldName = 'ICMS'
    end
    object sds_procPRECO_COMPRA: TFloatField
      FieldName = 'PRECO_COMPRA'
    end
    object sds_procTIPO: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object sds_procCOD_BARRA: TStringField
      FieldName = 'COD_BARRA'
    end
    object sds_procLOTES: TStringField
      FieldName = 'LOTES'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_procLOCALIZACAO: TStringField
      FieldName = 'LOCALIZACAO'
      Size = 50
    end
    object sds_procPESO_QTDE: TFloatField
      FieldName = 'PESO_QTDE'
    end
    object sds_procPRECOMEDIO: TFloatField
      FieldName = 'PRECOMEDIO'
    end
    object sds_procIPI: TFloatField
      FieldName = 'IPI'
    end
    object sds_procPEDIDO: TFloatField
      FieldName = 'PEDIDO'
    end
  end
  object DtSrc1: TDataSource
    DataSet = cds_Mov_det
    Left = 111
    Top = 455
  end
  object cds_Mov_det: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    Params = <
      item
        DataType = ftInteger
        Name = 'pCODMOV'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_Mov_det'
    OnCalcFields = cds_Mov_detCalcFields
    Left = 79
    Top = 455
    object cds_Mov_detCODDETALHE: TIntegerField
      FieldName = 'CODDETALHE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_Mov_detCODMOVIMENTO: TIntegerField
      FieldName = 'CODMOVIMENTO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object cds_Mov_detCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detICMS: TFloatField
      FieldName = 'ICMS'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detPRECO: TFloatField
      FieldName = 'PRECO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_Mov_detQUANTIDADE: TFloatField
      FieldName = 'QUANTIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detQTDE_ALT: TFloatField
      FieldName = 'QTDE_ALT'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detUN: TStringField
      FieldName = 'UN'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_Mov_detBAIXA: TStringField
      FieldName = 'BAIXA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_Mov_detCONTROLE: TSmallintField
      FieldName = 'CONTROLE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detCOD_COMISSAO: TIntegerField
      FieldName = 'COD_COMISSAO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detVALTOTAL: TFloatField
      FieldName = 'VALTOTAL'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_Mov_detPRECOCUSTO: TFloatField
      FieldName = 'PRECOCUSTO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detDESCPRODUTO: TStringField
      FieldName = 'DESCPRODUTO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_Mov_detLOTE: TStringField
      FieldName = 'LOTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_Mov_detCODIGO: TIntegerField
      FieldName = 'CODIGO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detCODIGO1: TIntegerField
      FieldName = 'CODIGO1'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detCODPRO: TStringField
      FieldName = 'CODPRO'
      ProviderFlags = []
      Size = 15
    end
    object cds_Mov_detPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Required = True
      Size = 300
    end
    object cds_Mov_detCODALMOXARIFADO: TSmallintField
      FieldName = 'CODALMOXARIFADO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detVALORUNITARIOATUAL: TFloatField
      FieldName = 'VALORUNITARIOATUAL'
      ProviderFlags = []
      DisplayFormat = ',#0.00'
    end
    object cds_Mov_detQTDE_PCT: TFloatField
      FieldName = 'QTDE_PCT'
      ProviderFlags = []
    end
    object cds_Mov_detCONTA_DESPESA: TStringField
      FieldName = 'CONTA_DESPESA'
      ProviderFlags = []
      Size = 15
    end
    object cds_Mov_detCOD_BARRA: TStringField
      FieldName = 'COD_BARRA'
      ProviderFlags = []
    end
    object cds_Mov_detLOCALIZACAO: TStringField
      FieldName = 'LOCALIZACAO'
      ProviderFlags = []
      Size = 50
    end
    object cds_Mov_detESTOQUEATUAL: TFloatField
      FieldName = 'ESTOQUEATUAL'
      ProviderFlags = []
    end
    object cds_Mov_detPERIODOINI: TSQLTimeStampField
      FieldName = 'PERIODOINI'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detPERIODOFIM: TSQLTimeStampField
      FieldName = 'PERIODOFIM'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detValorTotal: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'ValorTotal'
      DisplayFormat = ',#0.00'
    end
    object cds_Mov_detGERADESCONTO: TStringField
      FieldName = 'GERADESCONTO'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
    object cds_Mov_detIMPRIMIR: TStringField
      FieldName = 'IMPRIMIR'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
    object cds_Mov_detHORATERMINO: TSQLTimeStampField
      FieldName = 'HORATERMINO'
      ProviderFlags = []
    end
    object cds_Mov_detPAGO: TStringField
      FieldName = 'PAGO'
      ProviderFlags = []
      FixedChar = True
      Size = 3
    end
    object cds_Mov_detSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_Mov_detCODAUTORIZACAO: TIntegerField
      FieldName = 'CODAUTORIZACAO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Mov_detNOME_FUNCIONARIO: TStringField
      FieldName = 'NOME_FUNCIONARIO'
      ProviderFlags = []
      Size = 60
    end
    object cds_Mov_detVALORRATEIO: TFloatField
      FieldName = 'VALORRATEIO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
  end
  object dsp_Mov_det: TDataSetProvider
    DataSet = sds_Mov_Det
    UpdateMode = upWhereKeyOnly
    Left = 47
    Top = 455
  end
  object sds_Mov_Det: TSQLDataSet
    CommandText = 
      'select movd.CODDETALHE'#13#10'        , movd.CODMOVIMENTO'#13#10'        , m' +
      'ovd.CODPRODUTO'#13#10'        , movd.ICMS'#13#10'        , movd.PRECO'#13#10'     ' +
      '   , movd.QUANTIDADE'#13#10'        , movd.QTDE_ALT'#13#10'        , movd.UN' +
      #13#10'        , movd.BAIXA'#13#10'        , movd.CONTROLE'#13#10'        , movd.' +
      'COD_COMISSAO '#13#10'        , movd.VALTOTAL'#13#10'        , movd.PRECOCUST' +
      'O'#13#10'        , movd.DESCPRODUTO'#13#10'        , movd.LOTE'#13#10'        , mo' +
      'vd.CODIGO'#13#10'        , movd.CODIGO1'#13#10'        , prod.CODPRO'#13#10'      ' +
      '  , prod.PRODUTO'#13#10'        , movd.CODALMOXARIFADO'#13#10'        , prod' +
      '.VALORUNITARIOATUAL'#13#10'        , prod.QTDE_PCT'#13#10'        , prod.CON' +
      'TA_DESPESA  '#13#10'        , prod.COD_BARRA '#13#10'        , prod.LOCALIZA' +
      'CAO '#13#10'        , prod.ESTOQUEATUAL '#13#10'        , prod.GERADESCONTO'#13 +
      #10'        , prod.IMPRIMIR'#13#10'        , movd.PERIODOINI'#13#10'        , (' +
      'case when (movd.PERIODOINI is not null) then udf_IncMinute(movd.' +
      'PERIODOINI, prod.QTDE_PCT)  end) as Horatermino '#13#10'        , movd' +
      '.PERIODOFIM '#13#10'        , movd.PAGO'#13#10'        , movd.STATUS  '#13#10'    ' +
      '    , movd.CODAUTORIZACAO   '#13#10'        , u.NOME_FUNCIONARIO '#13#10'   ' +
      '     , movd.VALORRATEIO '#13#10'from MOVIMENTODETALHE movd '#13#10'inner joi' +
      'n PRODUTOS prod on prod.CODPRODUTO=movd.CODPRODUTO '#13#10'left outer ' +
      'join FUNCIONARIO u on  u.COD_FUNCIONARIO = movd.CODIGO '#13#10'where m' +
      'ovd.CODMOVIMENTO = :pCODMOV'#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pCODMOV'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 15
    Top = 455
    object sds_Mov_DetCODDETALHE: TIntegerField
      FieldName = 'CODDETALHE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sds_Mov_DetCODMOVIMENTO: TIntegerField
      FieldName = 'CODMOVIMENTO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sds_Mov_DetCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetICMS: TFloatField
      FieldName = 'ICMS'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetPRECO: TFloatField
      FieldName = 'PRECO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetQUANTIDADE: TFloatField
      FieldName = 'QUANTIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetQTDE_ALT: TFloatField
      FieldName = 'QTDE_ALT'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetUN: TStringField
      FieldName = 'UN'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object sds_Mov_DetBAIXA: TStringField
      FieldName = 'BAIXA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_Mov_DetCONTROLE: TSmallintField
      FieldName = 'CONTROLE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetCOD_COMISSAO: TIntegerField
      FieldName = 'COD_COMISSAO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetVALTOTAL: TFloatField
      FieldName = 'VALTOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetPRECOCUSTO: TFloatField
      FieldName = 'PRECOCUSTO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetDESCPRODUTO: TStringField
      FieldName = 'DESCPRODUTO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object sds_Mov_DetLOTE: TStringField
      FieldName = 'LOTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_Mov_DetCODIGO: TIntegerField
      FieldName = 'CODIGO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetCODIGO1: TIntegerField
      FieldName = 'CODIGO1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetCODPRO: TStringField
      FieldName = 'CODPRO'
      ProviderFlags = []
      Size = 15
    end
    object sds_Mov_DetPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Required = True
      Size = 300
    end
    object sds_Mov_DetCODALMOXARIFADO: TSmallintField
      FieldName = 'CODALMOXARIFADO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetVALORUNITARIOATUAL: TFloatField
      FieldName = 'VALORUNITARIOATUAL'
      ProviderFlags = []
    end
    object sds_Mov_DetQTDE_PCT: TFloatField
      FieldName = 'QTDE_PCT'
      ProviderFlags = []
    end
    object sds_Mov_DetCONTA_DESPESA: TStringField
      FieldName = 'CONTA_DESPESA'
      ProviderFlags = []
      Size = 15
    end
    object sds_Mov_DetCOD_BARRA: TStringField
      FieldName = 'COD_BARRA'
      ProviderFlags = []
    end
    object sds_Mov_DetLOCALIZACAO: TStringField
      FieldName = 'LOCALIZACAO'
      ProviderFlags = []
      Size = 50
    end
    object sds_Mov_DetESTOQUEATUAL: TFloatField
      FieldName = 'ESTOQUEATUAL'
      ProviderFlags = []
    end
    object sds_Mov_DetPERIODOINI: TSQLTimeStampField
      FieldName = 'PERIODOINI'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetPERIODOFIM: TSQLTimeStampField
      FieldName = 'PERIODOFIM'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetGERADESCONTO: TStringField
      FieldName = 'GERADESCONTO'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
    object sds_Mov_DetIMPRIMIR: TStringField
      FieldName = 'IMPRIMIR'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
    object sds_Mov_DetHORATERMINO: TSQLTimeStampField
      FieldName = 'HORATERMINO'
      ProviderFlags = []
    end
    object sds_Mov_DetPAGO: TStringField
      FieldName = 'PAGO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object sds_Mov_DetSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_Mov_DetCODAUTORIZACAO: TIntegerField
      FieldName = 'CODAUTORIZACAO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_Mov_DetNOME_FUNCIONARIO: TStringField
      FieldName = 'NOME_FUNCIONARIO'
      ProviderFlags = []
      Size = 60
    end
    object sds_Mov_DetVALORRATEIO: TFloatField
      FieldName = 'VALORRATEIO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object sgarcom: TSQLDataSet
    CommandText = 
      'select COD_FUNCIONARIO, CODFORNECEDOR, NOME_FUNCIONARIO from FUN' +
      'CIONARIO '#13#10'where FUNCAO_CARGO = '#39'Gar'#231'om'#39' and STATUS = '#39'S'#39
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 48
    Top = 144
    object sgarcomCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      Required = True
    end
    object sgarcomNOME_FUNCIONARIO: TStringField
      FieldName = 'NOME_FUNCIONARIO'
      Size = 60
    end
    object sgarcomCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
    end
  end
  object sAtendente: TSQLDataSet
    CommandText = 
      'select COD_FUNCIONARIO, CODFORNECEDOR, NOME_FUNCIONARIO from FUN' +
      'CIONARIO '#13#10'where STATUS = '#39'S'#39
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 88
    Top = 144
    object sAtendenteCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      Required = True
    end
    object sAtendenteNOME_FUNCIONARIO: TStringField
      FieldName = 'NOME_FUNCIONARIO'
      Size = 60
    end
    object sAtendenteCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 328
    Top = 240
    object Adiciona1: TMenuItem
      Caption = 'Adiciona'
      ShortCut = 115
      OnClick = BitBtn4Click
    end
    object Novo1: TMenuItem
      Caption = 'Novo'
      ShortCut = 113
      OnClick = BitBtn1Click
    end
    object Sair1: TMenuItem
      Caption = 'Sair'
      ShortCut = 120
      OnClick = BitBtn2Click
    end
    object Rateio1: TMenuItem
      Caption = 'Rateio'
      ShortCut = 116
      OnClick = BitBtn3Click
    end
  end
  object PrecoMinimo: TSQLDataSet
    CommandText = 
      'select CODPRODUTO, VALORMINIMO from PRODUTOS '#13#10'where CODPRODUTO ' +
      '= :codPro'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'codPro'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 168
    Top = 152
    object PrecoMinimoCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
    end
    object PrecoMinimoVALORMINIMO: TFloatField
      FieldName = 'VALORMINIMO'
    end
  end
  object sSuites: TSQLDataSet
    CommandText = 'select NOME, CODIGO from PLANO '#13#10'where CONTAPAI = :pConta'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pConta'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 248
    Top = 144
    object sSuitesNOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 200
    end
    object sSuitesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
  end
  object sOcupado: TSQLDataSet
    CommandText = 
      'select CODDETALHE from MOVIMENTODETALHE '#13#10'where CODALMOXARIFADO ' +
      '= :pcod '#13#10'and PERIODOFIM is null'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftSmallint
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 304
    Top = 440
    object sOcupadoCODDETALHE: TIntegerField
      FieldName = 'CODDETALHE'
      Required = True
    end
  end
  object sBuscaSuite: TSQLDataSet
    CommandText = 'select NOME, CODIGO from PLANO '#13#10'where NOME = :pnome'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 272
    Top = 440
    object sBuscaSuiteNOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 200
    end
    object sBuscaSuiteCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 
      'select distinct pro.CODPRODUTO, '#13#10'          pro.COD_BARRA,  '#13#10'  ' +
      '       pro.CODPRO, '#13#10'          pro.PRODUTO,  '#13#10'          pro.PRE' +
      'CO_VENDA, '#13#10'          pro.PRECO_COMPRAULTIMO as PRECO_COMPRA, '#13#10 +
      '          pro.QTDE_PCT, '#13#10'          pro.UNIDADEMEDIDA, '#13#10'       ' +
      '   pro.GRUPO, '#13#10'          pro.SUBGRUPO, '#13#10'          pro.MARCA, '#13 +
      #10'          pro.ESTOQUEATUAL, '#13#10'          pro.CODALMOXARIFADO,'#13#10' ' +
      '         pro.ICMS, '#13#10'          pro.TIPO,  '#13#10'          pro.LOCALI' +
      'ZACAO ,'#13#10'          pro.LOTES ,'#13#10'          pro.GERADESCONTO,'#13#10'   ' +
      '       cod.CODIGO, '#13#10'          uso.DESCRICAO as USO , pro.PRECO_' +
      'COMPRAMEDIO as PRECOMEDIO, pro.PESO_QTDE, pro.IPI ,pro.PEDIDO,'#13#10 +
      '          pro.PRECO_MINIMO '#13#10'from PRODUTOS pro '#13#10'left outer join' +
      ' CODIGOS cod on cod.COD_PRODUTO = pro.CODPRODUTO '#13#10'left outer jo' +
      'in USO_PRODUTO uso on uso.COD_PRODUTO = pro.CODPRODUTO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 24
    Top = 264
    object IntegerField1: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
    end
    object StringField1: TStringField
      FieldName = 'CODPRO'
      Size = 15
    end
    object StringField2: TStringField
      FieldName = 'PRODUTO'
      Required = True
      Size = 200
    end
    object FloatField1: TFloatField
      FieldName = 'PRECO_VENDA'
    end
    object FloatField2: TFloatField
      FieldName = 'QTDE_PCT'
    end
    object StringField3: TStringField
      FieldName = 'UNIDADEMEDIDA'
      FixedChar = True
      Size = 2
    end
    object StringField4: TStringField
      FieldName = 'GRUPO'
      Size = 30
    end
    object StringField5: TStringField
      FieldName = 'SUBGRUPO'
      Size = 30
    end
    object StringField6: TStringField
      FieldName = 'MARCA'
      Size = 30
    end
    object FloatField3: TFloatField
      FieldName = 'ESTOQUEATUAL'
    end
    object IntegerField2: TIntegerField
      FieldName = 'CODALMOXARIFADO'
    end
    object FloatField4: TFloatField
      FieldName = 'ICMS'
    end
    object FloatField5: TFloatField
      FieldName = 'PRECO_COMPRA'
    end
    object StringField7: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object StringField8: TStringField
      FieldName = 'COD_BARRA'
    end
    object StringField9: TStringField
      FieldName = 'LOTES'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object StringField10: TStringField
      FieldName = 'LOCALIZACAO'
      Size = 50
    end
    object FloatField6: TFloatField
      FieldName = 'PESO_QTDE'
    end
    object FloatField7: TFloatField
      FieldName = 'PRECOMEDIO'
    end
    object FloatField8: TFloatField
      FieldName = 'IPI'
    end
    object FloatField9: TFloatField
      FieldName = 'PEDIDO'
    end
  end
  object sProd: TSQLDataSet
    CommandText = 
      'select GERADESCONTO, TIPO, VALORCOMISSAO from PRODUTOS where COD' +
      'PRODUTO = :cod'#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'cod'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 224
    Top = 232
    object sProdGERADESCONTO: TStringField
      FieldName = 'GERADESCONTO'
      FixedChar = True
      Size = 1
    end
    object sProdTIPO: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object sProdVALORCOMISSAO: TFloatField
      FieldName = 'VALORCOMISSAO'
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 424
    Top = 176
  end
  object sdsPermissao: TSQLDataSet
    CommandText = 
      'select UCUSERNAME, UCLOGIN, UCPROFILE from UCTABUSERS '#13#10'where UC' +
      'IDUSER = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 552
    Top = 248
    object sdsPermissaoUCUSERNAME: TStringField
      FieldName = 'UCUSERNAME'
      Size = 30
    end
    object sdsPermissaoUCLOGIN: TStringField
      FieldName = 'UCLOGIN'
      Size = 30
    end
    object sdsPermissaoUCPROFILE: TIntegerField
      FieldName = 'UCPROFILE'
    end
  end
  object dPermissao: TDataSetProvider
    DataSet = sdsPermissao
    Left = 584
    Top = 248
  end
  object sPermissao: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'dPermissao'
    Left = 616
    Top = 248
    object sPermissaoUCUSERNAME: TStringField
      FieldName = 'UCUSERNAME'
      Size = 30
    end
    object sPermissaoUCLOGIN: TStringField
      FieldName = 'UCLOGIN'
      Size = 30
    end
    object sPermissaoUCPROFILE: TIntegerField
      FieldName = 'UCPROFILE'
    end
  end
  object sComissao: TSQLDataSet
    CommandText = 
      'select * from COMISSAOCOLABORADOR '#13#10'where COD_COLABORADOR = :id ' +
      #13#10'and COD_PRODUTO = :id1'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'id1'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 224
    Top = 192
    object sComissaoCOD_COMISSAO: TIntegerField
      FieldName = 'COD_COMISSAO'
      Required = True
    end
    object sComissaoCOD_COLABORADOR: TIntegerField
      FieldName = 'COD_COLABORADOR'
    end
    object sComissaoCOD_PRODUTO: TIntegerField
      FieldName = 'COD_PRODUTO'
    end
    object sComissaoVALORCOMISSAO: TFloatField
      FieldName = 'VALORCOMISSAO'
    end
  end
  object sPlano1: TSQLDataSet
    CommandText = 'select * from PLANO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 328
    Top = 328
    object sPlano1CODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object sPlano1CONTA: TStringField
      FieldName = 'CONTA'
      Required = True
      Size = 15
    end
    object sPlano1CONTAPAI: TStringField
      FieldName = 'CONTAPAI'
      Size = 10
    end
    object sPlano1NOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 200
    end
    object sPlano1CONSOLIDA: TStringField
      FieldName = 'CONSOLIDA'
      FixedChar = True
      Size = 1
    end
    object sPlano1DESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object sPlano1RATEIO: TStringField
      FieldName = 'RATEIO'
      FixedChar = True
      Size = 1
    end
    object sPlano1CODREDUZIDO: TStringField
      FieldName = 'CODREDUZIDO'
      Size = 15
    end
    object sPlano1REDUZRECEITA: TStringField
      FieldName = 'REDUZRECEITA'
      FixedChar = True
      Size = 1
    end
  end
  object sContaComissao: TSQLDataSet
    CommandText = 
      'select CONFIGURADO, DADOS from PARAMETRO '#13#10'where PARAMETRO = '#39'CO' +
      'MISSAO VENDA'#39
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 480
    Top = 496
    object sContaComissaoCONFIGURADO: TStringField
      FieldName = 'CONFIGURADO'
      FixedChar = True
      Size = 1
    end
    object sContaComissaoDADOS: TStringField
      FieldName = 'DADOS'
      Size = 40
    end
  end
  object sConta: TSQLDataSet
    CommandText = 'select CODIGO FROM PLANO where CONTA = :vConta'#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'vConta'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 528
    Top = 496
    object sContaCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
  end
  object sCaixa: TSQLDataSet
    CommandText = 
      'select * from CAIXA_CONTROLE '#13#10'where MAQUINA =:mq'#13#10'and SITUACAO ' +
      '=:st'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'mq'
        ParamType = ptInput
      end
      item
        DataType = ftFixedChar
        Name = 'st'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 424
    Top = 288
    object sCaixaIDCAIXACONTROLE: TIntegerField
      FieldName = 'IDCAIXACONTROLE'
      Required = True
    end
    object sCaixaCODCAIXA: TIntegerField
      FieldName = 'CODCAIXA'
    end
    object sCaixaCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object sCaixaDATAFECHAMENTO: TDateField
      FieldName = 'DATAFECHAMENTO'
      Required = True
    end
    object sCaixaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object sCaixaMAQUINA: TStringField
      FieldName = 'MAQUINA'
      Size = 60
    end
    object sCaixaDATAABERTURA: TDateField
      FieldName = 'DATAABERTURA'
    end
    object sCaixaVALORABRE: TFloatField
      FieldName = 'VALORABRE'
    end
    object sCaixaVALORFECHA: TFloatField
      FieldName = 'VALORFECHA'
    end
    object sCaixaNOMECAIXA: TStringField
      FieldName = 'NOMECAIXA'
      Size = 60
    end
  end
end
